home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #102 (1990-12)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #102 (1990-12)(Amiga User Group Deutschland e.V.).adf / Notendurchschnitt / Notendurchschnitt (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-03  |  647b  |  24 lines
  1. PRINT  CHR$(12)
  2. PRINT "Dieses kleine PD-Programm dient zur Errechnung des Notendurchschnitts"
  3. PRINT "einer Klassenarbeit oder Klausur."
  4. PRINT 
  5. INPUT "Wie viele Schüler haben mitgeschrieben ";an
  6. PRINT 
  7. PRINT "Geben Sie jetzt die jeweilige Schüleranzahl ein."
  8. PRINT 
  9. INPUT "sehr gut       ",sg
  10. INPUT "gut            ",gu
  11. INPUT "befriedigend   ",be
  12. INPUT "ausreichend    ",au
  13. INPUT "mangelhaft     ",ma
  14. INPUT "ungenügend     ",un
  15. durchschnitt = (sg + gu*2 + be*3 + au*4 + ma*5 + un*6) / an
  16. PRINT 
  17. PRINT 
  18. PRINT "Der Durchschnitt der Arbeit liegt bei";durchschnitt
  19. PRINT 
  20. INPUT "Noch einmal ";a$
  21. IF LEFT$(a$,1) = "j" THEN RUN
  22. END
  23.  
  24.